home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00876_PH-fi bt txt.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  814 b   |  26 lines
  1. on mouseDown
  2.   global gNumSpr, g1erSprLoc, gBoutons
  3.   set gNumSpr to g1erSprLoc
  4.   gBoutons(appuie, gNumSpr)
  5. end
  6.  
  7. on mouseUp
  8.   global g1erSprLoc, gEtatEtud, gSujAct, gBoutons, gOldBt, gNumSpr, gTextPhyL, gSurvolPrec
  9.   if gNumSpr = g1erSprLoc then
  10.     set monTxt to getAt(gTextPhyL, gSujAct)
  11.     set the visible of sprite 3 to 0
  12.     set the visible of sprite 4 to 0
  13.     if word 1 of the name of cast the castNum of sprite gNumSpr = "BTGBQ2" then
  14.       set the text of cast "TXT PHY" to line 2 of monTxt
  15.       gBoutons(habille, g1erSprLoc, "BTGBQ1 0")
  16.     else
  17.       set the text of cast "TXT PHY" to line 1 of monTxt
  18.       gBoutons(habille, g1erSprLoc, "BTGBQ2 0")
  19.     end if
  20.     set the visible of sprite 3 to 1
  21.     set the visible of sprite 4 to 1
  22.   end if
  23.   gBoutons(relache, gNumSpr)
  24.   set gSurvolPrec to -1
  25. end
  26.